home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs12.d81 / qwkiefre.sfx / qwkie.de-arc (.txt) < prev    next >
Commodore BASIC  |  1995-11-20  |  4KB  |  106 lines
  1. 1000 POKE 53280,0:POKE 53281,0:GOTO 1030
  2. 1020 CLOSE2:CLOSE3:CLOSE14:CLOSE15:END
  3. 1030 :
  4. 1040 DV=PEEK(186):IF DV<8 THEN DV=8
  5. 1060 CPU=64:IP=12
  6. 1070 IF PEEK(IP*4096)=76 AND PEEK(IP*4096+24)=76 THEN X=1
  7. 1080 ON X GOTO 1100:X=1:IF CPU=64 THEN LOAD"CSX64.ML",DV,1
  8. 1100 IF CPU=64 THEN MEM=55:POKE MEM,0:POKE MEM+1,4*16:CLR:CPU=64:IP=12
  9. 1120 :
  10. 1130 IA=IP*4096:REM "[201]NITIALIZE ARCHIVE
  11. 1140 GH[178]IA[170]3   :[143] "CHR$ET NEXT HEADER
  12. 1150 IE=GH+3   :REM "[201]NITIALIZE THIS ENTRY
  13. 1160 DA[178]IE[170]3   :[143] "(null)OOP TO UNATN(null)LEN THIS ENTRY
  14. 1170 GN=DA+3   :REM "UN[193][210][195] JUST ONE BYTE
  15. 1180 BO[178]GN[170]3   :[143] "PEEKUFFERED LENLEFT$(null)(null)(null)(null)
  16. 1190 CV=BO+3   :REM "[195]ONVERT [211]TANDARD [193][211][195][201][201] TO [195][194][205] [193][211][195][201][201]
  17. 1200 GE[178]CV[170]3   :[143] "ASCILL INPUT BUFFER
  18. 1210 PU=GE+3   :REM "[198]LUSH OUTPUT BUFFER
  19. 1220 I0[178]PU[170]3   :[143] "(null)OINTER TO START OF INPUT BUFFER
  20. 1230 I1=I0+2   :REM "[208]OINTER TO END OF INPUT BUFFER
  21. 1240 O0[178]I1[170]2   :[143] "(null)OINTER TO START OF OUTPUT BUFFER
  22. 1250 O1=O0+2   :REM "[208]OINTER TO END OF OUTPUT BUFFER
  23. 1260 LC[178]O1[170]2   :[143] "RIGHT$NPUT BUFFER POINTER WHERE VAL(null)ASC OCCURED
  24. 1270 E=LC+2    :REM "[197]RROR RETURN CODE
  25. 1280 :
  26. 1290 ME[178]E[170]2    :[143] "LENOMPRESION METHOD
  27. 1300 FL=ME+1   :REM "[193][211][195][201][201][218] FILENAME
  28. 1310 SL[178]FL[170]13  :[143] "(null)QUEEZED LENGTH
  29. 1320 DT=SL+4   :REM "[196]ATE
  30. 1330 TM[178]DT[170]2   :[143] "(null)IME
  31. 1340 C0=TM+2   :REM "[195][210][195]
  32. 1350 LN[178]C0[170]2   :[143] "(null)N(null)QUEEZED (ORIGINAL) LENGTH
  33. 1360 :
  34. 1370 C1=LN+4   :REM "[195]ALCULATED (NEW) [195][210][195]
  35. 1380 MO[178]C1[170]2   :[143] "(null)ODE. X,E,P OR V
  36. 1390 AS=MO+1   :REM "[198]LAG. 0=DON'T CONVERT TO [195][194][205] [193][211][195][201][201]
  37. 1400 AL[178]AS[170]1   :[143] "(null)OURCE LOGICAL FILE NUMBER
  38. 1410 OL=AL+1   :REM "[196]ESTINATION LOGICAL FILE NUMBER
  39. 1420 :
  40. 1430 C$[178]",":[134] M$(9):[143] M$(PEEK(ME)) RETURNS COMPRESSION METHOD
  41. 1440 M$(0)[178]"VAL(null)ASC     ":M$(1)[178]"(null)TORED  ":M$(2)[178]"(null)(null)ORED  ":M$(3)[178]"(null)ACKED  "
  42. 1450 M$(4)[178]"(null)QUEEZED":M$(5)[178]"LENRUNCHED":M$(6)[178]M$(5):M$(7)[178]M$(5):M$(8)[178]M$(5)
  43. 1460 M$(9)[178]"(null)QUASHED"
  44. 1470 [153]:[153]:[153] [199](14);[199](147);
  45. 1590 [153]
  46. 1600 [133] "OPENVALNTER NAME OF ARCHIVE ";AR$:[139] AR$[178]"" [167] 1600
  47. 1610 :
  48. 1620 [133] "                OPENSTR$RIVE   0CMDCMDCMD";DR$
  49. 1630 [139] DR$[179][177]"0" [175] DR$[179][177]"1" [167] 1620
  50. 1640 [133] "                 OPEN(null)NIT   8CMDCMDCMD";DV
  51. 1650 [139] DV[179]8 [167] 1640
  52. 1660 [159] 15,DV,15:[159] 2,DV,2,(DR$[170]":"[170]AR$[170]",R")
  53. 1670 [132]15,E$,M$,T$,S$:[139] [197](E$) [167] [153] E$C$M$C$T$C$S$:[137]1020
  54. 1680 :
  55. 1690 [133] "SYS(null)OPEN)RINT, SYS(null)OPEN)ERIFY, OR SYSVALOPEN)XTRACT   ECMDCMDCMD";X$
  56. 1700 X$[178][199]([198](X$) [175] 127)
  57. 1710 [139] X$[178]"P" [176] X$[178]"V" [176] X$[178]"X" [176] X$[178]"E" [167] [153]:[137] 1730
  58. 1720 [137] 1690
  59. 1730 [139] X$[179][177]"X" [175] X$[179][177]"E" [167] 1780
  60. 1740 [139] X$[178]"X" [167] X$[178]"E"
  61. 1750 [133] "OPEN(null)UTPUT DRIVE    0CMDCMDCMD";DR$:[139] DR$[179][177]"0" [175] DR$[179][177]"1" [167] 1750
  62. 1760 [133] "OPEN(null)UTPUT UNIT     8CMDCMDCMD";DV:[139] DV[179]8 [167] 1760
  63. 1765 [133] "OPEN(null)SE SYS(null)(null)(null)IEOPEN AUTO DE-ARC  YCMDCMDCMD";QK$:[139] QK$[179][177]"Y" [167] 1770
  64. 1767 [133] "OPENSTR$E-ARCING (null)(null) A 1541 OR 1571  YCMDCMDCMD";MD$
  65. 1770 [159] 14,DV,15
  66. 1775 [139]MD$[178]"Y"[167][152]14,"M-W";[199](105)[199](0)[199](1)[199](1)
  67. 1780 [151] MO, [198](X$):[151] AL,2:[151] OL,3
  68. 1790 [139] X$[179][177]"V" [167] [153]"ATNNSWER OPENY TO DISSOLVE OR OPENN TO BYPASS":[153]
  69. 1800 :
  70. 1810 [158](IA)
  71. 1820 [158](GH):[139] [194](ME)[178]0 [167] [153] "ATNLL DONE. VALND OF ARCHIVE.":[137]1020
  72. 1830 [139] [194](E)[179][177]0 [167] [153] "STR$ISK ERROR OR FILE CORRUPT":[137]1020
  73. 1840 M[178][194](ME):[139] M[177]9 [167] [153] "(null)NKNOWN COMPRESSION METHOD":[137]1020
  74. 1850 F$[178]"":F[178]0
  75. 1860 C[178][194](FL[170]F):[139] (C [175] F[179]12) [167] F$[178]F$[170][199](C):F[178]F[170]1:[137] 1860
  76. 1870 L[178][194](LN)[170]256[172]([194](LN[170]1)[170]256[172]([194](LN[170]2)[170]256[172][194](LN[170]3)))
  77. 1880 A$[178][201](F$,4):Z$[178]"N"
  78. 1890 [139] A$[178]".TXT" [176] A$[178]".DOC" [176] A$[178]".PAS" [176] [201](F$,2)[178]".C" [167] Z$[178]"Y"
  79. 1900 :
  80. 1910 [153] [199](34)F$[199](34)"  "L" BYTES. ";
  81. 1920 Y$[178]"":YY$[178]X$:[139] X$[178]"V" [167] 1990
  82. 1923 [139]QK$[179][177]"Y"[167]1930
  83. 1925 [151]631,13:[151]632,13:[151]633,13:[151]198,3
  84. 1927 [139](A$[179][177]".DAT"[175]A$[179][177]".NDX")[176]L[178]0[167][151]631,[198]("N"):[151]198,2
  85. 1930 [133] "OPEN(Y/N)   YCMDCMDCMD";Y$
  86. 1940 [139] Y$[179][177]"Y" [175] Y$[179][177]"(null)" [167] Y$[178]"N":[151] MO,[198]("V"):X$[178]"V":[137]1990
  87. 1950 [153]:[153] "OPENLENONVERT FROM ATN(null)LENRIGHT$RIGHT$CLOSETO LENPEEK(null) ATN(null)LENRIGHT$RIGHT$   ";Z$;"CMDCMDCMD";:[133] Z$
  88. 1960 [139] Z$[179][177]"Y" [175] Z$[179][177]"N" [167] 1950
  89. 1970 [151] AS,1:[139] Z$[179][177]"Y" [167] [151] AS,0
  90. 1980 [139] X$[178]"P" [167] [153]:[153] ""
  91. 1990 [139] X$[179][177]"E" [167] [159] 3,3:[137] 2040
  92. 2000 [133]"OPENASCILE TYPE (SYSP OPENOR SYSSOPEN)  SCMDCMDCMD";FT$:[139]FT$[179][177]"P"[175]FT$[179][177]"S" [167]2000
  93. 2010 F$[178]DR$[170]":"[170]F$[170]","[170]FT$[170]",W"
  94. 2020 [159] 3,DV,3,F$:[132]14,E$,M$,T$,S$
  95. 2030 [139] [197](E$) [167] [153] E$C$M$C$T$C$S$:[137] 1020
  96. 2040 [158](IE):[139] [194](E)[179][177]0 [167] [153]"STR$ISK ERROR OR ARCHIVE CORRUPT":[137]1020
  97. 2050 [158](DA):[160]3:[139] X$[178]"E" [167] [132]14,E$,M$,T$,S$
  98. 2060 [139] X$[178]"P" [167] [153]:[153]
  99. 2070 [139] [194](E)[178]1 [167] [153]"CLR LEN(null)LEN ERROR!   ";
  100. 2080 [139] [194](E)[178]0 [167] [153]"CLR (null)(null).   ";
  101. 2090 [139] [194](E)[178]3 [167] [153]"CLR (null)(null)(null)/(null)(null)(null)(null) PRESSED   ";
  102. 2100 [139] X$[178]"E"[167] [153] E$C$M$C$T$C$S$;
  103. 2110 [139] Y$[178]"N" [167] X$[178]YY$:[151] MO,[198](X$)
  104. 2120 [153]
  105. 2130 [137] 1820
  106.